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-- Final. mesa, modified by Sweet, July 5, 1978 9:28 AM 

DIRECTORY 

Code: FROM "code" USING [CodePassInconsistancy], 

CodeDefs: FROM "codedefs" USING [CCIndex, CCNull, ChunkBase, JumpCCIndex, JumpCCNull, JumpType, Label 
**CCIndex, LabelCCNull], 

FOpCodes: FROM "fopcodes". 

InlineDefs: FROM "inl inedef s" , 

OpTableDefs: FROM "optabledef s" USING [instal igned, instlength], 

P5ADefs: FROM "p5adefs" USING [deletecell ] , 

P5BDefs: FROM "p5bdefs" USING [bindjump, codejump, Cpeephole], 

TableDefs: FROM "tabledefs" USING [TableNotif ier], 

TreeDefs: FROM "treedefs" USING [treetype]; 

DEFINITIONS FROM CodeDefs; 

Final: PROGRAM 

IMPORTS CPtr: Code. OpTableDefs. P5ADefs, P5BDefs 
EXPORTS CodeDefs, P5BDefs ■ 
BEGIN 
OPEN P5ADefs, P5BDefs; 

cb: ChunkBase; -- code base (local copy) 

CJump: ARRAY JumpType[JumpE . .ZJumpN] OF JumpType « [ 
JumpN. JumpE, JumpGE, JumpL, JumpLE, JumpG, 
UJumpGE, UJumpL, UJumpLE, UJumpG. ZJumpN. ZJumpE]; 

FinalNotify: PUBLIC TableDefs. TableNotif ier « 

BEGIN -- called by allocator whenever table area is repacked 

cb *- LOOPHOLE[base[TreeDefs. treetype]]; 

RETURN 

END; 

DidSomething: BOOLEAN; 
Startlndex, Endlndex: CCIndex; 
SeenSwitch: BOOLEAN; 
JumpCellCount: CARDINAL; 

ThreadsValid: BOOLEAN; 

AreThreadsValid: PUBLIC PROCEDURE RETURNS [BOOLEAN] - 
BEGIN 

RETURN[ThreadsValid] 
END; 

Cfixup: PUBLIC PROCEDURE [start: CCIndex] » 

BEGIN -- a final pass over the code to fix up jumps 
ThreadsValid <- TRUE; 
DidSomething ^ TRUE; 
SeenSwitch ♦- TRUE; 
Startlndex <- start; 

--ComplementCursor[]; 
DO 

-- pass 0: distinguish forward and backward jumps 

CPassO[]; 

IF -DidSomething THEN EXIT; 

DidSomething *- FALSE; 

SeenSwitch ^ -SeenSwitch; 

-- pass 1 

-~CPassl[] 

-- pass 2 

CPass2[]; 

eliminate jump to jumps 



convert conditional backward jumps to canonical form 
eliminate multiple labels 



-- pass 3: 

CPass3[]; 

— pass 4: 

CPass4[]; 

ENDLOOP; -- end of the meta-pass consisting of passes 0-4 



eliminate unreachable code 



-- pass 5: replace cj-j seq. with ccj 

CPass5[]; 

-- pass 6: do some peephole optimization: load-store, EXCH-commutative op, 

Cpeephole [St art Index]; 

-- jump threads no longer maintained, debug output take note 

ThreadsValid <- FALSE; 
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-- pass 7: set length and alignment (most already set) 

CPass7[]; 

-- pass 8: resolve (most) jump instructions 

CPass8[]; 

-- pass 9: resolve (remaining) jump instructions 

CPass9[]; 

-- pass 10: set pad fields 

CPasslO[]; 

-- pass 11: code jumps 

CPassll[]; 

--ComplementCursor[]; 

RETURN 

END; 

- ComplementCursor: PROCEDURE ■ 
BEGIN 

i: CARDINAL; 

FOR i IN [431B..431B+16) DO MEMORY[i] ^ Inl ineDef s.BITNOT[MEMORY[i]] ENDLOOP; 
RETURN 
END; 

CPassO: PROCEDURE - 

BEGIN — pass 0: distinguish forward and backward jumps 
c: CCIndex; 

JumpCellCount ♦- 0; 

FOR c ^ cb[StartIndex].flink, cb[c].flink WHILE c # CCNull DO 
Endlndex <- c; 
WITH cb[c] SELECT FROM 

label «> labelseen <- SeenSwitch; 
jump »> 
BEGIN 
forward ^ 

IF destlabel = LabelCCNull THEN TRUE 
ELSE -(cbCdestlabel]. labelseen » SeenSwitch); 
JumpCellCount «- JumpCellCount + 1; 
END; 
ENDCASE; 
ENDLOOP; 
RETURN 
END; 

CPass2: PROCEDURE - 

BEGIN -- pass 2: eliminate multiple labels 
duplabel, unreferencedlabel : LabelCCIndex; 
nextc, c: CCIndex; 

FOR c <- cb[StartIndex].flink. nextc WHILE c # CCNull DO 
WITH cc:cb[c] SELECT FROM 
label «> 

IF cc.jumplist = JumpCCNull THEN 
BEGIN 

unreferencedlabel ♦- LOOPHOLE[c. LabelCCIndex]; nextc ♦- cc.flink; 
DidSomething ♦- TRUE; deletecell [unreferencedlabel]; 
END 
ELSE 
BEGIN 

duplabel ♦- LOOPHOLE[c. LabelCCIndex]; nextc <- cc.flink; 
IF cc.flink - CCNull THEN RETURN; 
WITH cb[cc.flink] SELECT FROM 
label -> 
BEGIN 

deletelabel[duplabel . LOOPHOLE[cc.f 1 ink, LabelCCIndex]]; 
DidSomething ♦- TRUE; 
END; 
ENDCASE; 
END; 
ENDCASE «> nextc ^ cc.flink; 
ENDLOOP; 
RETURN 
END; 

CPass3: PROCEDURE - 



Final. mesa 2-Sep-78 12:59:59 Page 



BEGIN -- pass 3: eliminate jump to jumps 

c, cc, oleic: CCIndex; 

jc: JumpCCIndex; 

jtojexists: BOOLEAN; 

jclabel, formerlabel: LabelCCIndex; 

jccount: CARDINAL; 

FOR c *- cb[StartIndex].flink, cb[c].flink WHILE c # CCNull DO 
WITH cb[c] SELECT FROM 
jump -> 

IF destlabel # LabelCCNull THEN 
BEGIN 

jtojexists ♦- FALSE; 
jccount ^ 0; 

jc ^ LOOPHOLE[c, JumpCCIndex]; 
DO 

jclabel <- cb[jc]. destlabel ; 

IF (cc ^ cb[jclabel].flink) - CCNull THEN EXIT; 

IF -UCjumpCcc] THEN EXIT; 

jc ^ LOOPHOLE[cc, JumpCCIndex]; 

IF jc - c THEN BEGIN jtojexists <- FALSE; EXIT END; 

jccount *- jccount +i; 

IF jccount > JumpCellCount THEN 

BEGIN jtojexists ♦- FALSE; EXIT END; 
IF jtype » JumpC AND -cbCjc]. forward THEN EXIT; 
jtojexists *- TRUE; 
ENDLOOP; 
IF jtojexists THEN 
BEGIN 

DidSomething ♦- TRUE; 
formerlabel <- destlabel; 
unthreadjump[LOOPHOLE[c, JumpCCIndex]]; 

IF jtype = JumpC AND cb[formerlabel ] . jumpl ist » JumpCCNull THEN 
BEGIN 

cc ^ cb[formerlabel].flink; 
deletecel 1 [formerlabel]; 
DO 

oldc ^ cc; 
cc ^ cb[cc].f 1 ink; 
WITH cb[oldc] SELECT FROM 
label -> EXIT; 

jump »> unthreadjump[LOOPHOLE[oldc, JumpCCIndex]]; 
ENDCASE; 
deletecell[oldc]; 
ENDLOOP; 
END; 
thread ^ cb[jclabel]. jumpl ist; 
cb[jclabel]. jumplist ^ LOOPHOLE[c, JumpCCIndex]; 
destlabel ♦- jclabel ; 
END; 
END; 
ENDCASE 
ENDLOOP; 
RETURN 
END; 



CPass4: PROCEDURE - 

BEGIN -- pass 4: eliminate unreachable code 
c, cc, oldc: CCIndex; 

FOR c ^ cb[StartIndex].flink, cb[c].flink WHILE c # CCNull DO 
WITH cb[c] SELECT FROM 
jump »> 

IF UCjump[c] OR jtype « JumpRet THEN 
BEGIN 

cc *- flink; 
DO 

IF (oldc ^ cc) ■ CCNull THEN RETURN; 

cc <- cb[cc]. flink; 

WITH cb[oldc] SELECT FROM 

label «> IF jumplist ^ JumpCCNull THEN EXIT; 
jump «> unthreadjump[LOOPHOLE[oldc, JumpCCIndex]]; 
other -> EXIT; 
ENDCASE; 
deletecell[oldc]; 
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DidSomething <- TRUE; 
ENDLOOP; 
END; 
ENDCASE; 
ENDLOOP; 
RETURN 
END; 

CPassS: PROCEDURE - 

BEGIN -- pass 5: replace cj-J seq. with ccj 
c, nextc: CCIndex; 

FOR c ^ cb[StartIndex].flink, cbCc].flink WHILE c # CCNull DO 
WITH o1dc:cb[c] SELECT FROM 
jump ■> 

IF oldc.jtype - JumpRet THEN 
BEGIN 

nextc ♦- oldc. blink; 
deletecen[c]; 
c *- nextc; 
END ELSE 
IF -UCjumpCc] THEN 
BEGIN 

nextc ♦- oldc.flink; 
IF nextc » CCNull THEN RETURN; 
WITH cb[nextc] SELECT FROM 
jump «> 

IF UCjump[nextc] AND (oldc. forward » forward) 
AND (cbColdc.destlabel]. blink « nextc) THEN 
BEGIN 

un thread jump[LOOPHOLE[nex to, JumpCCIndex]]; 
un thread jump[LOOPHOLE[c, JumpCCIndex]]; 
oldc.destlabel ♦- destlabel; 
oldc. thread <- cb[oldc. destlabel]. jumplist; 
cb[oldc. destlabel]. jumplist ♦- LOOPHOLE[c. JumpCCIndex]; 
oldc.jtype ^ CJump[oldc. jtype]; 
deletecel l[nextc]; 
END; 
ENDCASE; 
END; 
ENDCASE; 
ENDLOOP; 
RETURN 
END; 

CPass7: PROCEDURE - 

BEGIN — pass 7: set length and alignment (most already set) 
c: CCIndex; 

FOR c ♦- cb[StartIndex].flink, cb[c].flink WHILE c ^ CCNull DO 
WITH cb[c] SELECT FROM 
code ■> 
BEGIN 

IF isize « THEN isize <- OpTableDef s . instlength[inst]; 
aligned *- isize « 3 OR OpTableDef s. instal igned[inst]; 
END; 
ENDCASE; 
ENDLOOP; 
END; 

CPassS: PROCEDURE « 

BEGIN -- pass 8: resolve (most) jump instructions 
c, prev: CCIndex; 
min. max: CARDINAL; 

FOR c ^ cb[StartIndex].flink, cb[c].flink WHILE c ff CCNull DO 
Endlndex <- c; 
ENDLOOP; 

DidSomething ^ TRUE; 
WHILE DidSomething DO 
DidSomething <- FALSE; 

FOR c <- Endlndex. prev WHILE c ^ CCNull DO 
prev ^ cb[c] .b1 ink; 
WITH cb[c] SELECT FROM 
jump ■> 
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IF -fixedup THEN 
BEGIN 

[min, max] <- EstimateJumpDistance[L0OPHOLE[c. JumpCCIndex]]; 
IF max ■ THEN 

IF Removeab1eJump[c] AND forward THEN 
BEGIN 

DidSomething ^ TRUE; 
IF c " Endlndex THEN Endlndex ^ prev; 
deletecen[c]; 
END 
ELSE 
BEGIN 
IF bindjump[0, 0, LOOPHOLE[c, JumpCCIndex]] THEN 

DidSomething ^ TRUE; 
END 
ELSE 
BEGIN 
IF bindjump[min. max. LOOPHOLE[c, JumpCCIndex]] THEN 

DidSomething <- TRUE; 
END; 
END; 
ENDCASE; 
ENDLOOP; 
ENDLOOP; 
RETURN 
END; 

CPass9: PROCEDURE ■ 

BEGIN -- pass 9: resolve (remaining) jump instructions 
c, prev: CCIndex; 
nbytes: CARDINAL; 

FOR c ♦- Endlndex, prev WHILE c ff CCNull DO 
prev ♦- cb[c] .bl ink; 
WITH cb[c] SELECT FROM 
jump »> 

IF -fixedup THEN 
BEGIN 

nbytes ^ EstimateJumpDistance[LOOPHOLE[c, JumpCCIndex]] .max; 
[] ^ bindjump[nbytes, nbytes, LOOPHOLE[c, JumpCCIndex]]; 
END; 
ENDCASE; 
ENDLOOP; 
RETURN 
END; 

CPasslO: PROCEDURE - 

BEGIN -- pass 10: set pad field of chunks 

c: CCIndex; 

parity: [0. .2] ♦- 0; 

cpad: [0. .1]; 

aligned: BOOLEAN; 

t: CARDINAL; 

FOR c ^ cb[StartIndex].flink, cb[c].flink WHILE c ^ CCNull DO 
WITH cc:cb[c] SELECT FROM 
code »> 
BEGIN 

t *- cc.isize; 
aligned <- cc. aligned; 
END; 
other => WITH cc SELECT FROM 
table -> 
BEGIN 

t *- tablecodebytes; 
al igned ♦- TRUE; 
END; 
ENDCASE •> 
BEGIN 
t ^ 0; 

aligned <- FALSE; 
END; 
jump «> 

IF cc. completed THEN BEGIN t ^ 0; aligned ^ FALSE END 
ELSE 
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BEGIN 

t ^ cc.jsize; 
aligned ^ t > 1; 
END; 
label ■> 
BEGIN 
t ^ 0; 

aligned ♦- FALSE; 
END; 
ENDCASE; 
parity ♦■ (parity+t) MOD 2; 
IF aligned AND parity # THEN 
BEGIN 
cpad ^ 1; 
parity ^ 0; 
END 
ELSE cpad ♦- 0; 
cb[c].pad ♦- cpad; 
ENDLOOP; 
END; 

CPassll: PROCEDURE ■ 

BEGIN -- pass 11: code jumps 
c: CCIndex; 

FOR c <- cb[StartIndex].flink, cb[c].flink WHILE c » CCNull DO 
WITH cb[c] SELECT FROM 
jump ■> 
BEGIN 

IF -fixedup THEN SIGNAL CPtr .CodePassInconsistancy 

ELSE codejump[ComputeJumpDistance[LOOPHOLE[c, JumpCCIndex]] , L00PHOLE[c. JumpCCIndex]]; 
END; 
ENDCASE; 
ENDLOOP; 
RETURN 
END; 

deletelabel: PROCEDURE [oldc. c: LabelCCIndex] - 
BEGIN -- removes extra label from code stream 
Iq, q: JumpCCIndex; 

IF cb[c]. jumplist « JumpCCNull THEN cb[c]. jumpl ist ♦- cb[oldc] . jumpl ist 
ELSE 

BEGIN 

q ^ cb[c] .jumpl ist; 

UNTIL q - JumpCCNull DO 
Iq ^ q; 

q *- cb[q]. thread; 
ENDLOOP; 

cb[lq]. thread ♦- cb[oldc] .jumpl ist; 

END; 
FOR q <- cb[oldc]. jumplist, cb[q]. thread UNTIL q * JumpCCNull 

DO cb[q].destlabel <- c ENDLOOP; 
deletecel l[oldc]; 
RETURN 
END; 

unthreadjump: PROCEDURE [c: JumpCCIndex] - 

BEGIN -~ pull jump cell out of thread from label 
1: LabelCCIndex <- cb[c].destlabel ; 
jc: JumpCCIndex; 

IF 1 « LabelCCNull THEN RETURN; 

jc <- cb[l]. jumpl ist; 

IF jc - c THEN cb[l]. jumplist ^ cb[jc] . thread 

ELSE 

BEGIN 

UNTIL cb[jc]. thread - c DO jc ^ cb[jc]. thread ENDLOOP; 

cb[jc]. thread <- cb[c]. thread; 

END; 
RETURN 
END; 
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UCjump: PROCEDURE [c: CCIndex] RETURNS [BOOLEAN] ■ 

BEGIN -- predicate testing if c is an unconditonal Jump 
WITH cb[c] SELECT FROM 

jump ■> RETURN[jtype » Jump]; 

ENDCASE -> RETURN[FALSE] 
END; 



Removeablejump: PROCEDURE [c: CCIndex] RETURNS [BOOLEAN] ■ 
BEGIN -- predicate testing if c is an unconditonal jump 
WITH cb[c] SELECT FROM 

jump -> RETURN[(jtype ■ Jump OR jtype - JumpA OR jtype » JumpCA)]; 

ENDCASE ■> RETURN[FALSE] 
END; 

dMinMax: ARRAY {unconditional, equal, relational} OF 

ARRAY [0..2] OF PACKED ARRAY BOOLEAN OF RECORD [min.max: [0..15]] 



[ [[C2»4] 
[[3.3] 
[[2.4] 

[[[2.4] 
[[3.5] 
[[2.5] 

[[[2.6] 
[[3.7] 
[[2.7] 



[^«4]], -- unconditional, parity (backward, forward) 
[1,3]], -- unconditional, parity 1 (backward, forward) 
[1»4]]], -- unconditional, parity 2 (backward, forward) 
[1,4]], — equal, parity (backward, forward) 
[1.5]], -- equal, parity 1 (backward, forward) 
n.6]]], -- equal, parity 2 (backward, forward) 
[2,6]], -- relational, parity (backward, forward) 
[3.7]], -- relational, parity 1 (backward, forward) 
[2.7]]]]; -- relational, parity 2 (backward, forward) 



EstimateJumpDistance: PROCEDURE [c: JumpCCIndex] RETURNS [min,max: CARDINAL] 
BEGIN -- counts the number of bytes between a jump and its label, 
label: CCIndex ♦- cb[c].destlabel ; 
start, end, k: CCIndex; 
t: CARDINAL; 
parity: [0. .2] <- 2; 
dMin. dMax: [0..15]; 

min ♦- max <- 0; 

IF cb[c]. forward THEN BEGIN start ^ c; end *- label END 
ELSE BEGIN start ♦- label; end *- c END; 
FOR k 4- cb[start].flink, cb[k].flink UNTIL k » end DO 
WITH cc:cb[k] SELECT FROM 
code »> 
BEGIN 

t ^ cc. isize; 
IF cc. aligned THEN 
BEGIN 

IF parity » 2 THEN max ♦- max + l 
ELSE IF (parity+t) MOD 2 iS* THEN t ♦- t + 1; 
parity ♦- 0; 
END 
ELSE IF parity ^ 2 THEN parity *- (parity+t) MOD 2; 
min ♦- min + t; 
max ♦- max + t; 
END; 
jump «> IF cc. jtype ff JumpC THEN 
BEGIN 

IF -cc.fixedup THEN 
BEGIN 

[dMin. dMax] ♦- dMinMax[(SELECT cc. jtype FROM 
Jump, JumpA, JumpCA »> unconditional, 
JumpE.JumpN «> equal, 

ENDCASE => relational)][parity][cc. forward]; 
min ♦- min+dMin; max *- max+dMax; 
parity <- (SELECT cc. jtype FROM 
Jump, JumpA, JumpCA «> 2, 

JumpE.JumpN »> IF cc. forward AND parity # 1 THEN 2 ELSE 0, 
ENDCASE -> 0); 
END 
ELSE IF ~cc. completed THEN 
BEGIN 

t ^ cc.jsize; 
IF t « 1 THEN 

BEGIN IF parity # 2 THEN parity ^ (parity+1) MOD 2 END 
ELSE 
BEGIN 
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IF parity ■ 2 THEN max ♦- max 
ELSE IF (parity+t) MOD 2 i^ 
parity ♦- 0; 
END; 

+ t; 

+ t; 



+ 1 
THEN 



t ^ t + 1; 



min <r min 
max ^ max 
END; 
END; 
other ■> WITH cc SELECT FROM 
table ■> 
BEGIN 

t <- tablecodebytes; 
IF parity » 2 THEN max ♦- max + 1 
ELSE IF (parity+t) MOD 2 # THEN t 
parity ^ 0; 

t; 
t; 



*- t + 1; 



min ♦- 


min 


+ 


max ♦- 


max 


+ 


END; 






ENDCASE; 






ENDCASE; 






ENDLOOP; 






RETURN 






END; 







ComputeJumpDistance: PROCEDURE [c: JumpCCIndex] RETURNS [nbytes: CARDINAL] 
BEGIN -- counts the number of bytes between a jump and its label. 
-- all jump lengths have been resolved and pad values set 
label: CCIndex ^ cb[c].destlabel ; 
start, end, k: CCIndex; 

nbytes ^ 0; 

IF cb[c]. forward THEN BEGIN start ^ c; end ^ label END 
ELSE BEGIN start ^ label; end <- c END; 
FOR k ^ cb[start].flink, cb[k].flink UNTIL k » end DO 
nbytes <- nbytes+cb[k].pad + (WITH cc:cb[k] SELECT FROM 
code ■> cc.isize, 

jump «> IF cc. completed THEN ELSE cc.jsize, 
other «> (WITH cc SELECT FROM 
table -> tablecodebytes, 
ENDCASE »> 0). 
ENDCASE »> 0); 
ENDLOOP; 
RETURN 
END; 



END. 



